IBM InfoROM for OS/2 Beta 1995 January/IBM InfoROM for OS2 Beta 1-1995.ISO/testcert/storage/function/cdrom/rdfilet4.scr

Text File | 1994-09-07 | 646 b | 28 lines

@thread RDFILET4.LOG
@newalias cd CDROM.GRA
@IMPORT SYSINFO.TXT
cd log " Logging RDFILET4 -- THREAD 1"
cd set BYTESTART=1000 BYTECOUNT=30000 BUFFER=ALPHA
cd set ADDRESSMODE=LOGICALBLOCK
cd CDROM_OPEN
@loop 20
cd LOG $PROMPT="READING SECTORS"
cd CDROM_READFILE
@endloop
cd CDROM_CLOSE
*
*
@THREAD RDFILET4.OUT
@newalias cd1 CDROM.SCR
@IMPORT SYSINFO2.TXT
cd1 log " Logging RDFILET4 -- THREAD 2"
*cd1 response $PROMPT="PAUSING FOR A FEW SECONDS"  $PAUSE=5
cd1 set BYTESTART=200 BYTECOUNT=20000 BUFFER=BETA
cd1 CDROM_OPEN
@loop 20
cd1 LOG $PROMPT="READING SECTORS"
cd1 CDROM_READFILE
@endloop
cd1 CDROM_CLOSE
@FLUSH cd1